home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
sviewii
/
arexx-scripts
/
sviewngimport.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-06-15
|
2KB
|
78 lines
/*
$VER: SViewNGImport.rexx V1.0 (22.2.98)
© 1998 by William F. Maddock
Modified (with Andreas' help) from:
LoadRequest.rx V6.21 (17.3.97)
© 1993-97 by Andreas R. Kleinert
Which was written to demonstrate remote control of SViewNG through its ARexx Port.
This script should only be run from PageStream3.x Amiga and requires OS3.x.
The path to SViewNG in line 33 should be modified to match your system.
The "DRAWER" argument to the RequestFile command in line 45 should be changed to
suit your needs.
This script will load a graphic file from disk via the file requester, save it to
the clipboard, command PageStream3 to paste it to the current document, then exit.
Remember, this means a 24-bit IFF-ILBM occupying space in your CLIPS: directory
(usually located in RAM:). If this bothers you, then remove the comment brackets
from line 64 (the delete command).
*/
OPTIONS RESULTS
SIGNAL ON ERROR
SVNGPORT = 'SViewNG.rx'
SVPORT = 'SuperView.rx'
IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
IF ~SHOW('P',SVPORT) THEN DO
address command
"Work:GFXProcessing/SuperView/SViewNG" "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
wait 20
IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
IF ~SHOW('P',SVPORT) THEN DO
say "Could not locate ARexx port of SViewNG !"
CALL ErrorOut 0
END
END
ADDRESS VALUE SVPORT
Address Command "RequestFile DRAWER Graphics: NOICONS PUBSCREEN PageStream3 >T:RF"
OPEN('import','T:RF','read')
importpath = READLN('import')
CLOSE('import')
importpath = STRIP(importpath,'B','"')
'OPTION_SAVE=CLIP'
'LOAD='importpath
'SAVE=CLIPS:0'
ADDRESS 'PAGESTREAM'
'pasteobject progress'
wait 5
address command "delete CLIPS:0"
CALL ErrorOut 0
/* Errorout procedure ----------------------- */
ErrorOut:
PARSE ARG ExitCode
EXIT ExitCode
END